home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
util
/
misc
/
VMM_V3_1.lha
/
VMM
/
InstallVMM
/
deutsch
< prev
next >
Wrap
Text File
|
1995-05-23
|
14KB
|
411 lines
; VMM Installer script by Martin Apel
; Installation script for VMM 3.1
(set @app-name "VMM")
(welcome " Willkommen zur Installation von VMM"
"Virtueller Speicher für Amigas mit 68030, 68040 oder 68020+68851\n\n"
" Copyright 1993-95 Martin Apel\n\n"
"Novice installiert alles außer den Entwicklerdateien.\n"
"Advanced installiert alles ohne Bestätigung.\n"
"Expert installiert alles mit Bestätigung jeder Aktion.\n")
(if (= 0 @user-level) ; then
(set install_level %000111)
;else
(set install_level (askoptions (prompt "Was wollen Sie installieren ?")
(help @askoptions-help)
(choices "VMM" "Icons" "Dokumente" "Entwicklerdateien" "Zusatzprogramme" "Rexx Skripte")))
)
(set def_help "\n\nWenn Sie mehr Hilfe benötigen, sehen Sie in \"VMM.guide\"\n\n")
(set my_level @user-level)
(user 2)
(set vmmdest
;get destination directory for "VMM"
(askdir (prompt "Wählen Sie das Verzeichnis für VMM (und Zusatzprogramme) aus.")
(help "Dies sollte ein Verzeichnis sein, in dem Sie VMM einfach von "
"der Workbench oder der Shell aus starten können." def_help
@askdir-help)
(default @default-dest)
(disk)
)
)
(user my_level)
(set copy_vmm (BITAND %000001 install_level))
(set copy_icons (BITAND %000010 install_level))
(set copy_docs (BITAND %000100 install_level))
(set copy_dev (BITAND %001000 install_level))
(set copy_tools (BITAND %010000 install_level))
(set copy_rexx (BITAND %100000 install_level))
; Copy VMM files
(if copy_vmm
(
(set @default-dest vmmdest)
(set vmmtacked (tackon vmmdest "VMM"))
; ask, if we want to overwrite the old VMM if it exists
(set overwrite 1)
(if (exists "L:VMM-Handler")
(
(set old_version (getversion "l:VMM-Handler"))
(set old_ver (/ old_version 65536))
(set old_rev (- old_version (* old_ver 65536)))
(set new_version (getversion "/l/VMM-Handler_4K"))
(set new_ver (/ new_version 65536))
(set new_rev (- new_version (* new_ver 65536)))
(set overwrite (askbool (prompt "\nSie haben VMM "
old_ver "." old_rev " schon installiert"
".\nWollen Sie es mit VMM "
new_ver "." new_rev " überschreiben ?\n")
(help def_help @askbool-help)
(default 1)
(choices "Ja" "Nein"))
)
)
)
(if overwrite
(
; detect the pagesize (4K or 8K)
(set pagesize (run "/tools/ShowPageSize"))
(select pagesize
(abort "Interner Fehler im Installer Skript")
((set info_string "Eine Seitengröße von 4K ist auf Ihrem System möglich")
(set default_choice 0))
((set info_string "Eine Seitengröße von 8K ist auf Ihrem System möglich")
(set default_choice 1))
((set info_string "Sowohl 4K als auch 8K-Seiten sind auf Ihrem System möglich")
(set default_choice 0))
)
(set my_choice (askchoice (prompt "\nWählen Sie die Seitengröße:\n\n"
info_string ".\n")
(help def_help @askchoice-help)
(choices "4K Seiten" "8K Seiten")
(default default_choice))
)
(select my_choice
(set sizestr "4K")
(set sizestr "8K")
)
; copy the new VMM file to the destination directory
(if copy_icons
; then
(copyfiles (prompt ("\nKopiere VMM nach %s." vmmdest))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/")
(choices "VMM")
(dest vmmdest)
(infos)
(confirm)
)
; else
(copyfiles (prompt ("\nKopiere VMM nach %s." vmmdest))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/")
(choices "VMM")
(dest vmmdest)
(confirm)
)
)
; copy the catalog for VMM
(copyfiles (prompt "\nKopiere VMM.catalog nach LOCALE:catalogs/deutsch.")
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/catalogs/deutsch/VMM.catalog")
(dest "LOCALE:catalogs/deutsch")
(confirm)
)
; copy the new VMM-Handler file to l: and rename it as "VMM-Handler"
(set handler_name (cat "/l/VMM-Handler_" sizestr))
(copyfiles (prompt "\nKopiere VMM-Handler nach L:.")
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source handler_name)
(dest "l:")
(newname "VMM-Handler")
(confirm)
)
; copy the catalog for the VMM-handler
(copyfiles (prompt "\nKopiere VMM-Handler.catalog nach LOCALE:catalogs/deutsch.")
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/catalogs/deutsch/VMM-Handler.catalog")
(dest "LOCALE:catalogs/deutsch")
(confirm)
)
)
)
; ask, if we want to overwrite the old preferences file
; default: do overwrite preferences file
(set overwrite 1)
(if (exists "envarc:VMM.prefs")
(if (= 0 (askbool (prompt "\nSie haben schon eine Einstellungsdatei für VMM installiert.\nWollen Sie sie überschreiben ?\n\n")
(help "Wenn Sie die Einstellungsdatei nicht überschreiben lassen, so können Sie sie im nächsten Schritt konvertieren lassen" @askbool-help)
(default 0)
(choices "Ja" "Nein")))
(set overwrite 0)
)
)
(if overwrite
(
; copy the new preferences file to env: and envarc:
(copyfiles (prompt ("\nKopiere VMM.prefs nach env:\n"))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/env/VMM.prefs")
(dest "env:")
(confirm)
)
(copyfiles (prompt ("\nKopiere VMM.prefs nach envarc:\n"))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/env/VMM.prefs")
(dest "envarc:")
(confirm)
)
)
; else
(if (= 1 (askbool (prompt "Das Format der Einstellungsdatei hat sich seit V2.1 geändert\nWollen Sie, daß es konvertiert wird ?"
(help def_help @askbool-help)
(default 1)
(choices "Ja" "Nein"))))
(run "/tools/ConvVMMCfg")
)
)
)
)
; Copy docs
(if copy_docs
(
;get destination directory for "VMM.guide"
(set doc_dir (tackon vmmdest "doc"))
(if (AND (= 0 @user-level) (NOT (exists doc_dir)))
; then
(makedir doc_dir (infos))
)
(set vmmdocs
(askdir (prompt "Wählen Sie das Verzeichnis für die Dokumentation aus\n.")
(help "Dies sollte das Verzeichnis sein, in dem Sie normalerweise Ihre Dokumentation aufbewahren.\n\n"
def_help @askdir-help)
(default doc_dir)
(newpath)
(disk)
)
)
(if copy_dev
(if copy_icons
; then
(copyfiles (prompt ("\nKopiere Dokumentation"))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/doc")
(choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide" "VMM_lib.doc")
(dest vmmdocs)
(infos)
(confirm)
)
; else
(copyfiles (prompt ("\nKopiere Dokumentation"))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/doc")
(choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide" "VMM_lib.doc")
(dest vmmdocs)
(confirm)
)
)
; else
(if copy_icons
; then
(copyfiles (prompt ("\nKopiere VMM.guide nach " vmmdocs "."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/doc")
(choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide")
(dest vmmdocs)
(infos)
(confirm)
)
; else
(copyfiles (prompt ("\nKopiere VMM.guide nach " vmmdocs "."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/doc")
(choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide")
(dest vmmdocs)
(confirm)
)
)
)
)
)
; Copy developer files
(if copy_dev
(
(copylib (prompt ("\nKopiere VMM.library nach LIBS:."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/Developer/libs/VMM.library")
(dest "libs:")
(confirm)
)
(if (exists ("fd:") (noreq))
; then
(set fd_dir "fd:")
; else
(set fd_dir
(askdir (prompt "Wählen Sie das Verzeichnis für die FD-Datei aus.")
(help def_help @askdir-help)
(default "SYS:")
(disk)
)
)
)
(if (exists ("include:") (noreq))
; then
(set inc_dir "include:")
; else
(set inc_dir
(askdir (prompt "Wählen Sie das Verzeichnis für die Include-Datei aus.")
(help def_help @askdir-help)
(default "SYS:")
(disk)
)
)
)
(if (exists ("lib:") (noreq))
; then
(set lib_dir "lib:")
; else
(set lib_dir
(askdir (prompt "Wählen Sie das Verzeichnis für die Lib-Datei aus.")
(help def_help @askdir-help)
(default "SYS:")
(disk)
)
)
)
(copyfiles (prompt ("\nKopiere VMM_lib.fd nach " fd_dir "."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/Developer/fd/")
(choices "VMM_lib.fd")
(dest fd_dir)
(confirm)
)
(copyfiles (prompt ("\nKopiere VMM_stat.h nach " inc_dir "."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/Developer/include/")
(choices "VMM_Stat.h")
(dest inc_dir)
(confirm)
)
(copyfiles (prompt ("\nKopiere VMM_lib.lib nach " lib_dir "."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/Developer/lib/")
(choices "VMM_lib.lib")
(dest lib_dir)
(confirm)
)
)
)
; Copy tools
(if copy_tools
(
if copy_icons
; then
(copyfiles (prompt ("\nKopiere Zusatzprogramme nach" vmmdest "."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/tools")
(choices "VMMStat" "VMMUsage" "VMMUsageCLI")
(dest vmmdest)
(infos)
(confirm)
)
; else
(copyfiles (prompt ("\nKopiere Zusatzprogramme nach " vmmdest "."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/tools")
(choices "VMMStat" "VMMUsage" "VMMUsageCLI")
(dest vmmdest)
(confirm)
)
)
)
;
; Copy ARexx scripts
(if copy_rexx
(copyfiles (prompt ("\nKopiere ARexx Skripte nach REXX:"))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/rexx")
(choices "stat_on.vmm" "stat_off.vmm" "show.vmm" "hide.vmm")
(dest "REXX:")
(confirm)
)
)